TOS Silver 2000/TOS Silver 2000.iso/Anwendun/JANE152/SCL/UDO.SCL

Text File | 1998-10-29 | 2.4 KB | 213 lines

# @(#) SCEleton-Makros zum Erstellen von UDO-Quelltexten
# @(#) [e-mail], 13.02.1995

# ######
# Header
# ######
author()
{    putstring("!author ");
}

street()
{    putstring("!street ");
}

town()
{    putstring("!town ");
}

email()
{    putstring("!email ");
}

title()
{    putstring("!title ");
}

program()
{    putstring("!program ");
}

version()
{    putstring("!version ");
}

date()
{    putstring("!date ");
    ckey("RET");
}



# ##########
# Umgebungen
# ##########

begin_appendix()
{    putstring("!begin_appendix");
    ckey("RET");
}

end_appendix()
{    putstring("!end_appendix");
    ckey("RET");
}

begin_document()
{    putstring("!begin_document");
    ckey("RET");
}

end_document()
{    putstring("!end_document");
    ckey("RET");
}

begin_enumerate()
{    putstring("!begin_enumerate");
    ckey("RET");
}

end_enumerate()
{    putstring("!end_enumerate");
    ckey("RET");
}

begin_itemize()
{    putstring("!begin_itemize");
    ckey("RET");
}

end_itemize()
{    putstring("!end_itemize");
    ckey("RET");
}

begin_quote()
{    putstring("!begin_quote");
    ckey("RET");
}

end_quote()
{    putstring("!end_quote");
    ckey("RET");
}

begin_verbatim()
{    putstring("!begin_verbatim");
    ckey("RET");
}

end_verbatim()
{    putstring("!end_verbatim");
    ckey("RET");
}

item()
{    putstring("!item ");
}



# ############
# Formatierung
# ############

newline()
{    putstring(" (!nl)");
    ckey("RET");
}

newpage()
{    putstring("!newpage ");
    ckey("RET");
}


# ########
# Struktur
# ########
node()
{    putstring("!node ");
}

subnode()
{    putstring("!subnode ");
}

subsubnode()
{    putstring("!subsubnode ");
}

# #########
# "Effekte"
# #########

all_off()
{    putstring("(!0)");
}


bold_on()
{    putstring("(!B)");
}

bold_off()
{    putstring("(!b)");
}

under_on()
{    putstring("(!U)");
}

under_off()
{    putstring("(!u)");
}

italic_on()
{    putstring("(!I)");
}

italic_off()
{    putstring("(!i)");
}

verb_on()
{    putstring("(!V)");
}

verb_off()
{    putstring("(!v)");
}

fbox_on()
{    putstring("(!F)");
}

fbox_off()
{    putstring("(!f)");
}

foot_on()
{    putstring("(!N)");
}

foot_off()
{    putstring("(!n)");
}


# #########
# Sonstiges
# #########

maketitle()
{    putstring("!maketitle ");
    ckey("RET");
}

tableofcontents()
{    putstring("!tableofcontents ");
    ckey("RET");
}